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SEQ 1 


.REM * 


IDENTIFICATION 
PRODUCT CODE: 

PRODUCT NAME: 

DATE: 

MAINTAINER : 

AUTHOR: 


AC-8480C-MC 

CZOHJCO DH1 1 ECHO TEST 
AUGUST 1985 

NAC SOFTWARE ENGINEERING 
GEORGE BAISLEY 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS 
DOCUMENT . 

NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF SOFTWARE ON 
EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS AFFILIATED 
COMPANIES 


COPYRIGHT CC) 1985 BY DIGITAL EQUIPMENT CORPORATION 
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SEQ 2 


1 ABSTRACT 

THE DHU ECHO/CABLE DIAGNOSTIC IS DIVIDED INTO TWO TESTS. 

THE FIRST TEST (ECHO) IS A QUICK VERIFY TEST USING 
A TTY OR VT05 ETC. 

THE SECOND TEST (CABLE TEST) IS A QUICK VERIFY TEST USING THE 
CABLE TERMINATOR (TEST CONNECTOR). 

BOTH TESTS ASSUME 8 BITS/CHARACTER . NO PARITY GENERATION 
OR CHECKING . AND A DH PRIORITY LEVEL 5 (BR:5) 

1.1 THE DH11 ECHO TEST VERIFIES THAT ALL CHARACTERS CO 377) 

WILL ECHO ON EACH LINE (0-17 OCTAL) WITH STANDARD DH11 
TERMINAL ATTACHMENTS TTY 33.35 OR VT05 ETC. USING ASCII 
ASYNCHRONOUS CODE 

1.2 THE DH11 CABLE TEST VERIFIES THAT ALL CHARACTERS (0 377) 

ARE TRANSMITTED AND RECEIVED ON A PER LINE BASIS. 

THE LINE UNDER TEST MUST BE TERMINATED WITH THE TEST CONNECTOR ! 

2. REQUIREMENTS 

PDP-11 FAMILY STANDARD COMPUTER WITH MINiMUM 4K MEMORY. 

DH11 ASYNCHRONOUS MULTIPLEXER. 

2.1 FOR THE ECHO TEST 

TUO TERMINALS; ONE FOR CONSOLE, ONE FOR DHU ECHO TEST. 

2 2 FOR THE CABLE TEST 

ONE CONSOLE TERMINAL. ONE TEST CONNECTOR MINIMUM 

2.3 STORAGE 

THE PROGRAM LOADS INTO 4KU OF MEMORY WITH ABS LOADER 

3. LOADING PROCEDURE 

THE STANDARD PROCEDURE FOR LOADING ABSOLUTE BINARY TAPES 
IS TO BE USED. 

4. STARTING PROCEDURE 
CONTROL SWITCH SETTINGS 

AFTER PROGRAM LOAD (INITIAL PROGRAM START) 

ALL CONSOLE SWITCHES DOWN. 

4.1 TO MODIFY DEVICE VECTOR AND CONTROL REGISTER ADDRESSES 
AFTER PROGRAM RESTART 

SWOO-1 


TO MODIFY DHU LINE NUMBER AND BAUD RATE OF DH11 (WHILE RUNNING) 

SW02-1 (MOMENTARILY- 00 NOT LEAVE THIS SWITCH UP AFTER LINE 4 QUESTION) 
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4.2 STARTING ADDRESS 

THE STARTING ADDRESS FOR ALL TESTS IS 000200 
THE RESTART ADDRESS FOR ALL TESTS IS 000200 


4.3 PROGRAM AND/OR OPERATOR ACTION 

4.3.1 INITIAL PROGRAM START 
LOAD PROGRAM INTO MEMORY 
LOAD ADDRESS 000200 
CLEAR CONSOLE SWITCHES 
PRESS START 

4.3.2 THE PROGRAM WILL TYPE "DHll ECH0/CA8LE TEST" <CR> 

CZDHJ -REVISION C (ONCE ONLY) 

AND WILL TYPE -WHICH TEST ECHO OR CABLE (E OR C )" AND WILL 
WAIT FOR AN INPUT FROM THE CONSOLE TELETYPE KEYBOARO 

TYPE IN THE TEST YOU INTEND TG RUN (E OR C) FOLLOWED BY A ‘CARRIAGE RETURN* 

IF AN INCORRECT CHARACTER IS TYPED. THE PROGRAM WILL TYPE "?" 

AND WILL THEN REPEAT THE MESSAGE 

4.3.3 THE PROGRAM WILL TYPE "VECTOR ADDRESS " AND WAIT 
FOR AN INPUT FROM THE TELETYPE KEY80ARD. 

TYPE IN THE ADDRESS OF THE RECEIVER INTERRUPT 
VECTOR FOR THE DHll TO BE TESTED FOLLOWED BY A 
‘CARRIAGE RETURN*. 

4.3.3 THE PROGRAM WILL TYPE "CONTROL REGISTER ADDRESS " 

AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD. 

TYPE IN THE ADDRESS OF THE SYSTEM CONTROL REGISTER 
OF THE DHll TO BE TESTED FOLLOWED BY ‘CARRIAGE RETURN* 

IF AN INCORRECT ADDRESS IS TYPED. THE PROGRAM WILL 
Type »?» AND WILL THEN REPEAT THE MESSAGE 

4.3.4 THE PROGRAM WILL TYPE "LINE NUMBER IN OCTAL-" AND 
WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD. 

TYPE IN THE DHll LINE NUMBER (IN OCTAL. FROM 0 TO 17) 

TO BE TESTED FOLLOWED BY ‘CARRIAGE RETURN'. 

4.3.5 THE PROGRAM WILL TYPE "BAUD RA T E - " AND WAIT FOR 

AN INPUT FROM THE TELETYPE KEYBOARD. 

TYPE IN THE APPROPRIATE DHll TERMINAL'S LINE 
SPEED FOLLOWED BY ‘CARRIAGE RETURN*. 
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SEQ 4 


(ANY LEGAL BAUD RATE IS ACCEPTABE IN THE CABLE TEST) TRY 'EM ALL 

IF AN INVALID BAUD RATE IS TYPED IN THE PROGRAM 
WILL TYPE "INVALID BAUD RATE" AND REPEAT THE MESSAGE. 

4.3.6 THE PROGRAM UILL TYPE "ECHO" OR "CABLE" RESP. TO INDICATE THAT IT IS 
ABOUT TO START TESTING. AND THEN TESTING UILL BEGIN. 

THE ECHO TEST WILL TYPE "TYPE A CHARACTER ON DH11 TERMINAL" 

-TYPE OR TRANSMIT VIA PREPUNCHED TAPE ANY SEQUENCE OF CHARACTERSC EXCEPT tC) 
A CONTROL C (»C) WHEN TYPED ON THE DH11 TERMINAL WILL CAUSE 
PROGRAM TO EXIT TO THE END OF PASS ROUTINE. 

THE CABLE TEST REQUIRES NO ADDITIONAL OPERATOR INTERVENTION 
UNLESS TO RESELECT LINE 4. BAUD RATE. ETC. 

NOTE: TO CHANGE LINE NUMBER AND/OR BAUD RATE. 

SIMPLY MOMENTARILY RAISE SU02 (SU02-1). 


4.4 PROGRAM RESTART UITH ALL SWITCHES DOUN 
LOAD ADDRESS 000200 
PRESS START 

THE PROGRAM UILL TYPE "ECHO" OR “CABLE" RESPECTIVELY 
AND COMMENCE TESTING AS BEFORE. 


4.5 PROGRAM RESTART UITH SUOO-1 

LOAC ADDRESS 000200 
SET SU01«1 
PRESS START 

THE PROGRAM UILL PERFORM AS OESCRIBED IN 4.3.2 TO 4.3.6 
5. OPERATING PROCEDURE 

5.1 OPERATIONAL SUITCH SETTINGS 

SU15*1. HALT ON ERROR 

SU14-1. LOOP ON CURRENT TEST (CABLE TEST ONLY) 

SU13-1. SUPPRESS ERROR TYPEOUT 

SU11-1. INHIBIT ITERATIONS (CABLE TEST ONLY) 

suio-i. escape on error 

SU02-1. RESELECT LINE NUMBER AND BAUD RATE (MOMENTARILY) 
SUOO-l. CHANGE PARAMETERS AT PROGRAM RESTART 


I *.0 ERRORS 


6.1 ERROR HALTS 
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SEQ 5 


THE ERROR MESSAGE FORMAT FOR ALL ERROR TYPEOUTS IS AS FOLLOWS: 

PC. 2 
MESSAGE 


WHERE 

PC*2 IS the address of the call to the error HANDLER *2 
MESSAGE IS AN ASCII MESSAGE DESCRIBING C BRIEFLY ) THE FAILURE 

6.1.1 ERROR DESCRIPTIONS 

SEE LISTING FOR DETAILS OF ERRORS 

NOTE: FOR SERIOUS TROUBLESHOOTING USE THE REGULAR PH11 DIAGNOSTICS 

6.2 ERROR RECOVERY 

6.2.1 SW15-0 

IF THE PROGRAM IS RUN WITH SW15-0. NO OPERATOR ACTION IS 
REQUIRED TO CONTINUE TESTING. 


i 6.2.2 SW15-1 

IF THE PROGRAM IS RUN WITH SW15-1. TO CONTINUE TESTING AFTER 
I THE PROGRAM HAS HALTED. PRESS THF PROCESSOR CONSOLE 

CONTINUE SWITCH. 


6.2.3 ILLEGAL INTERRUPTS 

IF AN INTERRUPT OCCURS TO A VECTOR ADDRESS NOT SELECTED 
DURING PROGRAM INITIALIZATION. THE PROGRAM WILL HALT IN THE 
TRAPCATCHER. THE ADDRESS AT WHICH THE PROGRAM HALTS IS 2 
GREATER THAN THE ADDRESS TO WHICH THE INTERRUPT OCCURRED. 

THE PROGRAM MUST BE RESTARTED AT 200 TO RECOVER FROM THIS 
ERROR . 

7. RESTRICTIONS 
NONE 

8. MISCELLANEOUS 

- THE ECHO TEST DOES NOT ENABLE AUTO ECHO 

- BAUO RATE 134.5 HAS BEEN ROUNOED OFF TO 135 

9. PROGRAM DESCRIPTION 

BOTH TESTS CHECK OUT THE 0H11 IN AN "ONLINE" FUNCTION: 

ONE LINE mT A TIME AT THE FOLLOWING ASYNCHRONOUS BAUD 

RATES : 50.75.110.134,5.150.200.300.600.1200.1800. 2400 . 4800 . 9600 . 


LISTING 
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SEQ 6 


66 


: OH 11 ECHO/CABLE TEST 

; COPYRIGHT 1973. 1985 DIGITAL EQUIPMENT CORP.. MAYNARD. MASS. 01754 

» STARTING PROCEDURE 
;LOAD PROGRAM 
;LOAD ADDRESS 000200 
■PRESS START 

! PROGRAM WILL TYPE DH11 ECHO/CABLE TEST 
1 PROGRAM WILL TYPE WHICH TEST- ECHO OR CABLE 
iTYPE IN E OR C RESPECTIVELY 
; PROGRAM WILL TYPE "VECTOR ADDRESS-" 

; TYPE IN THE ADDRESS OP THE RECEIVER INTERRUPT VECTOR 
;FOR THE DH11 TO BE TESTED. FOLLOWED BY CARRIAGE RETURN> 
i PROGRAM WILL TYPE "CONTROL REGISTER ADDRESS-" 

; TYPE IN THE ADDRESS OF THE SYSTEM CONTROL REGISTER 
: FOR THE DH11 TO BE TESTED. FOLLOWED BY < CARRIAGE RETURN > 
j PROGRAM WILL TYPE "LINE NUMBER-" 
s TYPE IN THE LINE NUMBER TO BE TESTED (IN OCTAL) 

!. FOLLOWED BY CARRIAGE RETURN> 

; PROGRAM WILL TYPE "BAUD RATE-" 

: TYPE IN THE 8AU0 RATE OF THE DH11 TERMINAL 
FOLLOWED BY CARRIAGE RE TURN > 

j THE FOLLOWING BAUD RATES ARE ACCEPTED IN DECIMAL 
; 50 

s 75 

; 110 

; 135 (ROUNOED OFF 134.5) 

: 150 

; 200 

; 300 

; 600 

; 1200 

; 1800 

: 2400 

; 4800 

; 9600 

; ALL OTHERS ARE REJECTED 

sPROGRAM WILL TYPE "ECHO" OR "CABLE TEST" TO INDICATE THAT TESTING HAS STARTED 
; AT THE END OF A PASS. PROGRAM WILL TYPE " CZDHJ (REV] " 
jANO THEN RESUME TESTING 

i SWITCH REGISTER OPTIONS 

100000 SW15-100000 i-l. HALT ON ERROR 

040000 SW14-40000 j-l.LOOP ON CURRENT TEST 

020000 SW13-20000 :-l. INHIBIT ERROR TYPEOUT 

010000 SU12- 10000 

00*000 SW1 1*4000 ;-l. INHIBIT ITERATIONS 

002000 SW10-2000 j«l. ESCAPE TO NEXT TEST ON ERROR 

001000 SW09-1000 : -l.LOOP WITH CURRENT DATA 

000400 SW08-400 

000100 SW06-100 

000040 SW05-40 

000020 SW04-20 

000010 SW03-10 x 

000004 SW02-4 : RESELECT DH11 LINE NUMBER AND BAUD RATE (RAISE MOMENTARILY ONLY) 


! 


1 
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SEQ 7 


120 000000 
121 000002 
128 

129 

130 

131 

132 000024 


000000 

000000 


000024 

005126 


67 

000002 

SW01-2 

{RESTART PROGRAM AT SELECTED 

TEST 

68 

000001 

SWOO-l 

{RESELECT VECTOR AND CONTROL 

REGISTER 

69 


{ADDRESS AFTER PROGRAM RESTART 

70 





71 





72 


5 REGISTER DEFINITIONS 


73 





74 

000000 

RO-dO 

GENERAL REGISTER 


75 

000001 

Rl-dl 

GENERAL REGISTER 


76 

000002 

R2«d2 

GENERAL REGISTER 


77 

000003 

R3-d3 

GENERAL REGISTER 


78 

000004 

R4-K4 

GENERAL REGISTER 


79 

000005 

R5»d5 

GENERAL REGISTER 


80 

000006 

SP«d6 

PROCESSOR STACK POINTER 


81 

000007 

PC-d7 

PROGRAM COUNTER 


82 





83 

84 

85 


{LOCATION EQUIVALENCIES 


177776 

PS-177776 

PROCESSOR STATUS WORD 


86 





87 

88 

89 


{INSTRUCTION DEFINITIONS 


005746 

PUSH1SP-5746 

DECREMENT PROCESSOR STACK 1 WORD 


90 

005726 

P0P1SP-5726 

INCREMENT PROCESSOR STACK 1 WORD 


91 

010046 

PUSHR0-10046 

SAVE RO ON STACK 


92 

012600 

POPRO- 12600 

RESTORE RO FROM STACK 


93 

024646 

PUSH2SP -24646 

DECREMENT STACK TWICE 


94 

95 

99 

100 

101 

102 

022626 

P0P2SP-22626 

INCREMENT STACK TWICE 


100000 

BIT15-100000 



103 

040000 

BIT 14 -40000 



104 

020000 

BIT13-20000 



105 

010000 

BH12- 10000 



106 

004000 

BIT11-4000 



107 

002000 

BIT10-2000 



108 

001000 

BIT09-1000 



109 

000400 

BIT08-400 



110 

000200 

BIT07-200 



111 

000100 

BIT06-100 



112 

000040 

BIT05-40 



113 

000020 

BIT04-20 



114 

000010 

BIT03-10 



115 

000004 

BIT02-4 



116 

000002 

BIT01-2 



117 

000001 

BITOO-l 



118 

(TRAPCATCAER FOR ILLEGAL INTERRUPTS 


119 

000000 

.-0 




; STANDARD INTERRUPT VECTORS 


PFAIL 


; POWER FAIL HANDLER 
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133 

000026 

000340 




340 

SERVICE AT LEVEL 7 

134 

000030 

002720 




ERRORS 

ERROR HANDLER 

135 

000032 

000340 




340 

SERVICE AT LEVEL 7 

136 

000034 

003122 




TRPSRV 

GENERAL HANDLER DISPATCH SERVICE 

137 

000036 

000340 




340 

SERVICE AT LEVEL 7 

138 


000200 



.■200 



139 

000200 

000137 

001104 



JMP START 

GO TO START OF PROGRAM 

140 








141 








142 








143 






: DEFINITIONS FOR TRAP SUBROUTINE CALLS 

144 






« POINTERS TO SUBROUTINES 

CAN BE FOUND STARTING 

145 






: AT LOCATION "TRPTAB" 


146 








1 l 47 


104400 




SCOPE- TRAP »0 

SCOPE LOOP AND ITERATION HANDLER 

148 


104401 




TYPE-TRAP*1 

TELETYPE OUTPUT ROUTINE 

149 


104402 




OCTASC-TRAP *2 

OCTAL TO ASCII CONVERSION 

' 150 


104403 




INSTR-TRAP*3 

INPUT ASCII STRING 

151 


104404 




INSTER-TRAP-4 

STRING INPUT ERROR 

152 


104405 




PARAM-TRAP-5 

CONVERT STRING TO OCTAL. CHECK LIMITS 

153 


104406 




S A V05P ■ T R AP ♦ 6 

SAVE R0-R5. PC 

154 


104407 




RES05-TRAP*7 

RESTORE R0-R5 

155 


104410 




SCOPE 1- TRAP *10 

CHECK FOR FREEZE ON CURRENT DATA 

156 


104411 




PARAMO -TRAP *11 

CONVERT DECIMAL STRING TO OCTAL 

157 


104412 




PAUCH-TRAP*12 

SET FLAG ECHO OR CABLE 

158 


104413 




SAV05-TRAP* 13 

SAVE RO - R5 

159 








160 


001000 



.-1000 



161 








162 

001000 

000000 




STACK: .WORD 

: PROCESSOR STACK CPS) 

163 








164 


001100 



.-1100 



165 







I 

166 






; PROGRAM INITIALIZATION 

! 

167 






{LOCK OUT INTERRUPTS 


168 






jSET UP PROCESSOR STACK 


169 






: SET UP POWER FAIL VECTOI 

R 

170 






j CLEAR PROGRAM FLAGS AND 

COUNTS 

171 






jTYPE TITLE MESSAGE 


172 








173 

001100 

177570 



SWR : 

.WORD 177570 

; SWITCH REG AODRESS 1 

174 

001102 

177570 



LIGHTS: 

.UORO 177570 

: lights | 

175 







176 

001104 

012737 

000340 

177776 

START: 

MOV 4340, PS 

:LOCK OUT INTERRUPTS 

177 

001112 

012706 

001000 



MOV 4STACK . SP 

: SET UP PROCESSOR STACK 

178 

001116 

012702 

000024 



MOV 424, R2 

; POINT TO VECTOR AREA 

179 

001122 

012722 

005126 



MOV 4PFAIL.CR2)* 

; SET UP POWER FAIL TRAP 

180 

001126 

012722 

000340 



MOV 4340, CR2)« 

j SERVICE AT LEVEL 7 

181 

001132 

012722 

002720 



MOV 4ERR0RS, CR2)» 

; ERROR HANDLER 

162 

001136 

012722 

000340 



MOV 4340, (R2)» 

: SERVICE AT LEVEL 7 

183 

001142 

012722 

003122 



MOV 4TRPSRV. CR2)» 

j GENERAL HANDLER DISPATCH SERVICE 

184 

001146 

012712 

000340 



MOV 4340. CR2) 

; SERVICE AT LEVEL 7 

185 

001152 

012737 

001104 

005032 


MOV 4ST ART. RE TURN 

; SET UP IN CASE OF POWER FAIL 

186 

001160 

005037 

005070 



CLR STFLG 

; CLEAR TEST START FLAG 

187 

001164 

005037 

005026 



CLR PASCNT 

; CLEAR PASS COUNT 

188 

001170 

005037 

005030 



CLR ERRCNT 

; CLEAR ERROR COUNT 

189 

j 

001174 

005037 

005024 



CLR ERRFLG 

; CLEAR ERROR FLAG 
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SEQ 9 


190 

001200 

005037 

005074 



CLR 

LAST 

; CLEAR LAST ERROR PC 

191 

001204 

013746 

000004 



MOV 

4. -(SP) 

i PUSH TRAP VECTOR 

192 

001210 

013746 

000006 



MOV 

6. -(SP) 


193 

001214 

012737 

001230 

000004 


MOV 

01*. 4 

i sat up trap vector 

194 

001222 

005777 

177652 



TST 

SSUR 

: TEST SWITCH REGISTER ADDRESS 

195 

001226 

000405 




BR 

2* 

; IF SUCCESSFUL. LEAVE IT ALONE 

196 

001230 




It: 




197 

001230 

012737 

000176 

001100 


MOV 

0176. SWR 

; POINT TO SOFT SWITCH REG 

198 

001236 

005037 

001102 



CLR 

LIGHTS 

s 0 MEANS WE ARE NOT GOING TO USE LIGHTS 

199 

001242 




2t: 




200 

001242 

005726 




TST 

(SP)* 

s CLEAN UP STACK 

201 

001244 

005726 




TST 

(SP)* 


202 

001246 

012637 

000006 



MOV 

(SP)*. 6 


203 

001252 

012637 

000004 



MOV 

(SP)*. 4 


204 

001256 

005237 

005064 



INC 

INIFLG 

; SET UP FOR ONCE ONLY TYPE OUT 

205 

001262 

001003 




BNE 

VEC1 

s DITTO 

206 

001264 

104401 

005270 



TYPE 

.MTITLE 

.-TYPE TITLE 

207 

001270 

000404 




BR 

VEC2 


208 

001272 

032777 

000001 

177600 

VEC1: 

BIT 

OSUOO.BSUR 

.IF SWOO-1. GET NEW VECTOR 

209 

001300 

C01471 




BEQ 

BEGIN 

; AND CSR 

210 

001302 

012701 

000300 


VEC2: 

MOV 

0300, R1 


211 

001306 

012702 

000302 



MOV 

0302. R2 


2 12 

001312 

012703 

000004 



MOV 

04. R3 


213 

001316 

010211 



1*: 

MOV 

R2.(R1) 

j RESTORE TRAPCATCHER 

214 

001320 

005012 




CLR 

(R2) 

: IN FLOATING VECTOR AREA 

215 

001322 

060301 




ADO 

R3.R1 


216 

001324 

060302 




ADO 

R3.R2 


217 

001326 

020127 

001000 



CMP 

Rl. 01000 


218 

001332 

001371 




BNE 

1* 


219 

001334 

104403 




INSTR 

s INPUT 

WHICH TEST YOU ARE RUNNING 

220 

001336 

005722 




MUHICH 

;ECHO 

OR CABLE 

221 

001340 

104412 




PAUCH 

jSET FLAG 

222 

001342 

005066 




UCHFLG 

:THIS 

flag 

223 

001344 

104403 




INSTR 


; INPUT ADDRESS OF DEVICE VECTOR 

224 

001346 

005347 




MVECTOR 


.•MESSAGE "VECTOR ADDRESS " 

225 

001350 

104405 




PAR AM 


•.CONVERT STRING TO OCTAL 

226 

001352 

000300 




300 


;LOU LIMIT 

227 

001354 

000770 




770 


;HIGH LIMIT 

228 

001356 

005012 




OMRVEC 


s LOCATIONS TO BE FILLED 

229 

001360 

003 



.BYTE 

3 


sLSB MASK 

230 

001361 

004 



.BYTE 

4 


; NUMBER OF LOCATIONS 

231 

001362 

104403 




INSTR 


; INPUT ADDRESS OF DEVICE CSR 

232 

001364 

005372 




MREGAO 


•.MESSAGE “CONTROL REGISTER ADDRESS " 

233 

001366 

104405 




PARAM 


j CONVERT STRING TO OCTAL 

234 

001370 

000000 




0 


.-LOW LIMIT 

235 

001372 

177776 




177776 


2 HIGH LIMIT 

236 

001374 

004770 




DHSCR 


s LOCATIONS TO BE FILLED 

237 

001376 

007 



.BYTE 

7 


;LS8 MASK 

238 

001377 

010 



.BYTE 

10 


; NUMBER OF LOCATIONS 

239 

001400 

012777 

004000 

003362 

LINE: 

MOV 

OBITll . 9DHSCR 

i MASTER CLEAR INTERFACE 

240 

001406 

005037 

005070 



CLR 

STFLG 

; CLEAR PROGRAM START FLAG 

241 

001412 

104403 




INSTR 


i INPUT LINE NUMBER 

242 

001414 

005610 




MLINE 


i MESSAGE "LINE NUMBER" 

243 

001416 

104405 




PARAM 


5 CONVERT STRING TO OCTAL 

244 

001420 

000000 




0 


jLOU LIMIT 

245 

001422 

000017 




17 


jHIGH LIMIT 

246 

001424 

005110 




LINENU 


j LOCATION TO BE FILLED 
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SEQ 10 

2«7 

001426 

000 



.BYTE 

0 


iLSB MASK 


248 

001427 

001 



.BYTE 

1 

i NUMBER 

OF LOCATIONS 

249 

001430 

104403 



BAUD: 

INSTR 


: INPUT BAUD RATE 

250 

001432 

005642 




MSPEED 


; MESSAGE 

"BAUD RATE-" 

251 

001434 

104411 




PARAMO 


: CONVERT 

DECIMAL STRING TO OCTAL 

252 

001436 

000062 




50. 


;LOU limit 

253 

001440 

022600 




9600. 


iHIGH LIMIT 

254 

001442 

005104 




LINESP 


jLOCATIOK 

TO BE FILLED 

255 

001444 

000 



.BYTE 

0 


iLSB MASK 


256 

001445 

001 



.BYTE 

1 


; NUMBER C 

>F LOCATIONS 

257 

001446 

004537 

004204 



JSR 

R5.SET 



250 

001452 

013737 

005006 

005010 


MOV 

DHSSR , OHSLR 

i 

SET UP ADDRESS OF SILO 

259 

001460 

005237 

005010 



INC 

DHSLR 


STATUS REGISTER HIGH BYTE 

260 










261 










262 

001464 

012737 

000340 

177776 

BEGIN: 

MOV 

4340, PS 


LOCK OUT INTERRUPTS 

263 

001472 

012706 

001000 



MOV 

♦STACK . SP 


SET UP PROCESSOR STACK 

264 

001476 

005037 

005072 



CLR 

LOCKUP 


CLEAR TIMEOUT 

265 

001502 

005737 

005066 



TST 

uchflg 


ECHO OR CABLE TEST ? 

266 

001506 

C01413 




BEQ 

21 


ECHO 

267 

001510 

012737 

002074 

005032 


MOV 

•TEST2. RETURN 


CABLE TEST 

266 

001516 

005737 

005070 



TST 

stflg 


ARE YOU LOOPING ? 

269 

001522 

001017 




BNE 

It 


YES 

270 

001524 

005137 

005070 



COM 

stflg 


NO 

271 

001530 

104401 

006017 



TYPE 

.MCABLE 


type cable TEST 

272 

001534 

000412 




BR 

It 



273 

001536 

012737 

001566 

005032 

2$ : 

MOV 

•TESTl. RETURN 


.SET UP ECHO TEST 

274 

001544 

005737 

005070 



TST 

STFLG 


ARE YOU LOOPING ? 

275 

001550 

001004 




BNE 

It 


YES 

276 

001552 

005137 

005070 



COM 

stflg 


NO 

277 

001556 

104401 

005771 



TYPE 

.MTERM 


.TYPE ECHO TEST 

278 

001562 

000177 

003244 


It: 

JHP 

8RETURN 


:START TESTING 

279 






(THIS TEST MILL ACCEPT 1 

CHARACTER AT A TIME 

260 






i (IN INTERRUPT MODE) AMO 

TRANSMI1 

r THAT SAME CHARACTER. 

281 






jONE LINE AT A TIME. ANY 

LINE 0 

rHRU 17 (OCTAL) | 

282 










263 

001566 

012737 

000340 

177776 

TESTl: 

MOV 

•340, PS 

(DISABLE 

ALL INTERRUPTS 1 

284 

001574 

012737 

001400 

005034 


MOV 

•LINE. ESC APE 



285 

001602 

012737 

002500 

005022 


MOV 

•E OP. NEXT 



286 

001610 

052777 

004000 

003152 


BIS 

•BIT11.80HSCR 

(MASTER 

DLEAR INTERFACE 

287 

00] 616 

013777 

005112 

003144 


MOV 

NUMLIN.SDHSCR 

(SELECT LINE • 6 SET INTERRUPT ENABLE 

288 

001624 

013777 

005106 

003142 


MOV 

SPEED. SOHLPR 

tSET LINI 

E SPEED AND 

289 








(CHARACTER LENGTH (TRANS. £ REC.) 

290 

001632 

012777 

000000 

003146 


MOV 

•O.BOHSSR 

(SET SILO ALARM LEVEL-0 

291 

001640 

012777 

005124 

003130 


MOV 

•TBUF.BOHBA 

(ADDRESS OF TRANSMITTER 

292 








(DATA 8UFFER 

293 

001646 

052777 

100000 

003114 


BIS 

•100000. 80HSCR 

(SET TRANSMIT 'DONE- 

294 

001654 

012777 

001716 

003130 


MOV 

♦INTSVC .80HRVEC 

(SET UP 

INTERRUPT SERVICE 

295 

001662 

013777 

005116 

003124 


MOV 

PRIO.QOHRLVL 

(AND LEVEL 

296 

001670 

013737 

005120 

177776 


MOV 

LESS1.PS 

(ALLOW INTERRUPTS 

297 

001676 

104401 

005661 



TYPE 

.MCHAR 

(TYPE -ANY CHARACTER" 

298 

001702 

032777 

000004 

177170 

DELAY : 

BIT 

•SU02.8SUR 

(IF SU02> 

•1 GET NEW LINE NUMBER 

299 

001710 

001774 




BEQ 

DELAY 

(RETURN HERE AFTER “INTERRUPT" 

300 

001712 

000137 

001400 



JMP 

LINE 

i 


301 










302 










303 
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304 

001716 

105777 

003046 


INTSVC 

: TSTB 

80HSCR 

.TEST REC. FLAG 

305 

001722 

100401 




BMI 

. *4 


306 

001724 

104000 




EMT 

0 


307 

001726 

005777 

003040 



TST 

SOHNRC 

.TEST FOR VALIO CHARACTER 

306 

001732 

100401 




BMI 

. »4 


309 

001734 

104001 




EMT 

1 


310 

001736 

017737 

003030 

005122 


MOV 

UOHNRC , 84REC0AT 


311 

001744 

113737 

005122 

005124 


MOVB 

RECOAT. TBUF 

.MOVE CHARACTER TO OUTPUT AREA 

312 

001752 

113737 

005122 

006066 


MOVB 

RECDAT . INBUF 

.MOVE CHARACTER TO CHECK FOR tC 

313 

001760 

042737 

177600 

006066 


bIC 

•♦C<177».IN8UF 

.STRIP JUNK PLUS PARITY 

314 

001766 

042737 

170377 

005122 


BIC 

•170377 .84REC0A1 

.SAVE ONLY LINE NUMBER 

315 

001774 

000337 

005122 



SUA8 

RECOAT 


316 

002000 

023737 

005110 

005122 


CMP 

LINENU. RECDAT 

tOOES THE LINE • COMPARE? 

317 

002006 

001401 




BEQ 

. *4 


3x6 

002010 

104002 




EMT 

2 


319 

002012 

012777 

177777 

002760 


MOV 

•-1.80HBC 

.1 (OCTAL) BYTES WILL B p XMITTED 

320 

002020 

032777 

100000 

002742 


bit 

♦100000. 80MSCR 

.TEST -FLAG" FOR CONE 

1 321 

002026 

001001 




8NE 

.♦4 

i 322 

002030 

104003 




EMT 

3 


! 323 

002032 

123727 

006066 

000003 


CMPB 

INBUF. 43 

.IS IT A tC ? 

324 

002040 

001006 




SHE 

11 

.NO 

325 

002042 

052777 

004000 

002720 


BIS 

•BIT11.80HSCR 

.STOP 0EV1CE 

326 

002050 

012716 

002500 



MOV 

•EOP.CSP) 

.CRUNCH STACK 

i 327 

002054 

000002 




RTI 



326 002056 

012777 

005124 

002712 

11: 

MOV 

•TBUF.BOHBA 

.ADDRESS OF TRANSMITTER 

329 

002064 

013777 

005114 

002710 


MOV 

NUMBAR.80HBAR 

.START XMITTER 

330 

331 

332 

002072 

000002 




RTI 



333 





iTHIS 

TEST TRANSMITS A BINARY COUNT PATTERN 

334 





.VIA INTERRUPT N00€ TO THE RECEIVER 

335 





i . . .THE LIME UNDER TEST MUST BE 

TERMINATED WITH THE TEST COWCCTOR 

336 

002074 

012737 

000340 

177776 

TEST2: 

MOV 

•340. PS 

.DISABLE INTERRUPTS 

337 

002102 

012737 

001400 

005034 


MOV 

•LINE, ESCAPE 


336 

002110 

012737 

002500 

005022 


MOV 

•EOP.NEXT 


339 

002116 

052777 

004000 

002644 


BIS 

•BIUl.BOHSCR 

.MASTER CLEAR INTERFACE 

340 

002124 

013777 

005112 

002636 


MOV 

NUHLlN.aOKSCR 

.SELECT LINE • 6 REC. INTERRUPT ENABLE 

341 

002132 

052777 

020000 

002630 


BIS 

•ems.aoHscR 

.SET TRANSMITTER INTERRUPT ENABLE 

342 








s£ NON EXISTANT MEMORY INTR ENABLE 

343 

002140 

013777 

005106 

002626 


MOV 

SPEEO.BOMlPS 

.SET LINE SPEED 

i 344 

002146 

012777 

000000 

002632 


MOV 

•O.BOHSSR 

(SET SILO ALARM LEVEL -0 

) 345 

002154 

012777 

006664 

002614 


MOV 

•TABLE .SDH8A 

. ADDRESS OF TRANSMITTER DATA BUFFER 

i 346 

002162 

012777 

177400 

002610 


MOV 

• -256. . 8DH8C 

.SET UP BYTE COUNT 

| 347 

00217C 

012777 

002266 

002614 


MOV 

•INTREC . SOHRVEC 

*SET UP INTR SERVICE 

346 

002176 

013777 

005116 

002610 


MOV 

PRIO.«HRLVL 

.SET UP LEVEL 

I 349 

002204 

012777 

002436 

002604 


MOV 

•INTRAN.aOMTVEC 

.SET UP INTR SERVICE 

350 

002212 

013777 

005116 

002600 


MOV 

PRXO.BOHTLVL 

.SET UP LEVEL 

351 

002220 

012701 

006664 



MOV 

•TABLE. R1 

.SET UP DATA °C INTER 

352 

002224 

013737 

005120 

177776 


MOV 

LESS1.PS 

. ALLOW INTERRUPTS 

353 

354 

355 

002232 

013777 

005114 

002542 


MOV 

MUM8AR.80NBAR 

.SET UP BAR BIT 






.YOU RETURN HERE AFTER EVERY RECEIVER INTERRUPT 

356 

002240 

032777 

000004 

176632 

SPIN: 

BIT 

•SU02 . as WR 

.IF SW02-1 GET NEW LINE NUMBER 

357 

0C2246 

001402 




BEQ 

1* 

.SU02-0 

356 

002250 

000137 

001400 



JMP 

LINE 

. SM02-1 

359 

002254 

005237 

005072 


1*; 

INC 

LOCKUP 

.INC TIMEOUT FLAG 

360 

t 

! 

002260 

001367 




BNE 

SPIN 

.IF NOT 0 RETURN SPINNING 



SEQ 12 
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361 002262 

104006 




EMT 

6 


362 002264 

104400 



QUITS: 

SCOPE 



363 002266 

005037 

005072 


INTREC: 

CLR 

LOCKUP 

j CLEAR TIMEOUT FLAG 

364 002272 

105777 

002472 



TSTB 

80HSCR 

iTEST REC DONE 

365 002276 

100401 




BMI 

. *4 

t YES 

366 002300 

104000 




EMT 

0 


367 002302 

017737 

002464 

005122 


MOV 

SDHNRC. RECDAT 

(SAVE WORD 

366 002310 

005737 

005122 



TST 

RECDAT 

:TEST FOR VALID CHARACTER 

369 002314 

100401 




BMI 

. »4 


370 002316 

104001 




EMT 

1 


371 002320 

032737 

040000 

005122 


BIT 

•BIT14, RECDAT 

jOATA OVERRUN 7 

372 002326 

001401 




BEQ 

.♦4 

(NO 

373 002330 

104007 




EMT 

7 


374 002332 

032737 

020000 

005122 


BIT 

•BIT13. RECDAT 

; FRAMING ERROR ? 

375 002340 

001401 




BEQ 

. *4 

jNO 

376 002342 

104010 




EMT 

10 

377 002344 

032737 

010000 

005122 


BIT 

♦8IT12. RECDAT 

(PARITY ERROR ? 

376 002352 

001401 




BEQ 

.♦4 

jNO 

379 002354 

104011 




EMT 

11 

360 002356 

122137 

005122 



CMPB 

CR1)». RECOAT 

jGOOD CHARACTER ? 

361 002362 

001401 




BEQ 

.♦4 

i YES 

362 002364 

104005 




EMT 

5 


363 002366 

042737 

170377 

005122 


BIC 

♦170377. RECDAT 

i SAVE ONLY LINE NUMBER 

364 002374 

000337 

005122 



SUA6 

RECOAT 


365 002400 

023737 

005110 

005122 


CMP 

LINENU. RECDAT 

(DOES THE LINE • COMPARE ? 

366 002406 

001401 




BEQ 

.♦4 

j YES 

367 002410 

104002 




EMT 

2 

368 002412 

126127 

177777 

000377 


CMPB 

-KRD.4377 

(LAST CHARACTER ? 

309 002420 

001003 




BNE 

11 

;N0 

390 002422 

012716 

002264 



MOV 

•QUITS. CSP) 

(CRUNCH STACK 

391 002426 

000402 




BR 

21 


392 002430 

012716 

002240 


11: 

MOV 

•SPIN.(SP) 

(CRUNCH STACK 

393 0C2434 

000002 



21: 

RTI 



394 

395 002436 

032777 

100000 

002324 

INTRAN: 

BIT 

•8IT15.80HSCR 

(TEST TRANSMIT FLAG 

396 002444 

001001 




BNE 

.♦4 


397 002446 

104003 




EMT 

3 


396 002450 

032777 

002000 

002312 


BIT 

♦BIT 10 . 80HSCR 

(NON EXISTANT MEMORY ? 

399 002456 

001404 




BEQ 

It 


4C0 002460 

104004 




EMT 

4 


40 002462 

042777 

000400 

002300 


BIC 

♦BIT06.B0HSCR 

(CLEAR NON EXISTANT MEMORY BIT 

40, 002470 

042777 

lOOOOO 

002272 

11: 

BXC 

•eiTlS.aOHSCR 

(CLEAR DONE BIT FOR NEXT ROUND 

40 002476 

000002 




RTI 

t RETURN 
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SEQ 13 

405 









406 





.ENO OF 

PASS 



407 

- 




I TYPE NAME OF TEST 



408 





jUPOATE 

PASS COUNT 



409 





: CHECK 

FOR EXIT TO ACT-11 



410 





.RESTART TEST 



411 









412 002500 

104401 



EOP : 

TYPE 


.TYPE NAME OF TEST 


415 002502 

005525 




MEPASS 




414 002504 

005057 

005074 



CLR 

LAST 

.CLEAR LAST ERROR PC 


415 002510 

005057 

005024 



CLR 

ERRFLG 

.CLEAR ERROR FLAG 


416 002514 

005257 

005026 



INC 

PASCNT 

.UPOATE PASS COUNT 


417 002520 

005757 

001102 



TST 

LIGHTS 

. ARE WE USING LIGHTS? 


418 002524 

001005 




BNE 

2) 

; BRANCH IF WE ARE 


41C 002526 

104401 




TYPE 


. TYPE PASCOUNT MESSAGE 


420 002550 

00S541 




PASTXT 




421 002552 

104402 




OCTASC 


s PRINT PASSCOUNT 


422 002554 

002574 




PASARG 



| 

425 002556 

000405 




BR 

5) 

; CONTINUE 

1 

424 002540 




21: 





425 002540 

015757 

005026 

001102 


MOV 

PASCNT. LIGHTS 

.DISPLAY PASS COUNT 


426 002546 




51: 





427 002546 

015701 

000042 



MOV 

R642.R1 

.CHECK FOR ACT -11 OR DDP 


428 002552 

001406 




BEQ 

RESTRT 

; IF NOT. CONTINUE TESTING 


429 002554 

000005 




RESET 




450 002556 

004711 



LOGICAL 


JSR PC. CR1) 



451 002560 

000240 




MOP 




45 2 002562 

000240 




MOP 




455 002564 

000240 




NOP 




454 002566 

000240 




NOP 




455 002570 

000157 

001464 


RESTRT : 

vWP 

BEGIN 



456 002574 

000001 



PASARG: 

.WORD 

1 

. PARAMETERS TO PRINT PASSCOUNT 


457 002576 

006 

002 



SYTE 

6.2 



458 002600 

005026 




.WORD 

PASCNT 



459 









440 





.CHECK 

FOR LOOP ON CURRENT TEST 



441 

442 





(CHECK 

FOR ITERATION SUPPRESSION 


445 002602 

052777 

002000 

176270 

SCOPER: 

BIT 

•SU10.RSWR 



444 002610 

001050 




BNE 

41 



445 002612 

052777 

040000 

176260 

11: 

BIT 

♦SU14.8SWR 



446 002620 

001021 




BWE 

51 



447 002C22 

052777 

004000 

176250 


BIT 

♦SU11.8SWR 



448 002650 

001006 




BNE 

21 



449 002652 

005257 

005042 



INC 

LPCNT 



450 002656 

025757 

005042 

C 05040 


CMP 

LPCNT.ICOUNT 



451 002644 

001007 




&m 

51 



452 002646 

005057 

005042 


21: 

CLR 

LPCNT 



455 0@26S2 

005057 

0O5024 



CLR 

ERRFLG 



454 002656 

015757 

005022 

005052 


MOV 

NEXT. RETURN 



455 002664 

015716 

005052 


51 : 

MOV 

RETURN. CSP) : LOOPING 


456 002670 

000602 




RTI 




457 002672 

005757 

005024 


41: 

TST 

ERRFLG 



458 002676 

001745 




BEQ 

It 



459 002700 

000762 




BR 

2t 



460 









46) 





(CHECK FOR FREEZE ON CURRENT OATA 

! 
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SEQ 14 


46 2 








463 

002702 

032777 

001000 

176170 

SC0P1R: 

BIT 

4SU09 . 3SUR 

464 

002710 

001402 




BEQ 

It 

465 

002712 

013716 

005036 



MOV 

FREEZl.(SP) 

466 

002716 

000002 



11: 

RTI 


467 








460 






; ERROR 

HANDLER 

469 








470 

002720 

032777 

020000 

176152 

ERRORS: 

BIT 

4SW13.8SUR 

471 

002726 

001051 




BNE 

HALTS 

472 

002730 

021637 

005074 



CMP 

(SP).lAST 

473 

002734 

001404 




BEQ 

It 

474 

002736 

011637 

005074 



MOV 

(SP) .LAST 

475 

002742 

005037 

005024 



CLR 

ERRFLG 

476 

002746 

104406 



It: 

SAV05P 


477 

002750 

011605 




MOV 

(SP).R5 

4 70 

002752 

162705 

000002 



sue 

42 . R5 

479 

002756 

011504 




MOV 

(R5).R4 

400 

002760 

006304 




ASL 

R4 

401 

002762 

C06304 




ASL 

R4 

402 

002764 

042704 

177001 



BIC 

4177001. R4 

403 

002770 

062704 

006124 



ADD 

4ERRTAB.R4 

404 

002774 

012437 

003034 



MOV 

(R4)» .ERRMSG 

405 

003000 

011437 

003046 



MOV 

(R4) .DATABP 

486 

003004 

005737 

005024 



TST 

ERRFLG 

407 

003010 

001403 




BEQ 

TYPMSG 

480 

003012 

005737 

003046 



TST 

DATABP 

409 

003016 

001007 




BNE 

TYPDAT 

490 

003020 

104402 



TYPMSG : 

OCT ASC 


491 

003022 

003114 




ERTABO 


492 

003024 

012737 

000001 

005024 


MOV 

41. ERRFLG 

493 

003032 

104401 




TYPE 


494 

003034 

000000 



ERRMSG: 

0 


495 

003036 

005737 

003046 


TYPDAT: 

TST 

DATABP 

496 

003042 

001402 




BEQ 

RESREG 

497 

003044 

104402 




OCT ASC 


490 

003046 

000000 



OATABP: 

0 


499 

003050 

104407 



RESREG: 

RES05 


500 

003052 

005777 

176022 


HALTS: 

TST 

asuR 

501 

003056 

100005 




BPL 

EXITER 

502 

003060 

010046 




PUSHRO 


503 

003062 

016600 

000002 



MOV 

2CSP) ,R0 

504 

003066 

000000 




HALT 


505 

003070 

012600 




POPRO 


506 

003072 

005237 

005030 


EXITER: 

INC 

ERRCNT 

507 

003076 

032777 

002000 

175774 


BIT 

ASWIO.aSUR 

500 

003104 

001402 




BEQ 

It 

509 

003106 

013716 

005034 



MOV 

ESCAPE. (SP) 

510 

003112 

000002 



It: 

RTI 


511 

003114 

000001 



ERTABO: 

1 


512 

003116 

006 

002 



• BYTE 

6,2 

513 

003120 

005062 




SAVPC 


514 






:TRAP DISPATCH SERVICE 

515 






: ARGUMENT OF TRAP IS EXTRACTED 

516 






; AND USED AS OFFSET TO OBTAIN POINTER 

517 






: TO SELECTED SUBROUTINE 

510 
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519 003122 

011646 



TRPSRV: 

MOV 

(SP).-CSP) 

sGET PC OF RETURN 

520 003124 

162716 

000002 



SUB 

#2 . ( SP ) 

;*PC OF TRAP 
; GET TRP 

521 003130 

017616 

000000 



MOV 

a(SP).(SP) 

522 003134 

006316 



TRPOK: 

ASL 

(SPY 

s MULTIPLY TRAP ARG B T 2 

523 003136 

042716 

177001 



BIC 

#177001. (SPY 

8 CLEAR UNWANTED BITS 

524 003142 

062716 

006036 



ADD 

4TRPTAB , (SP ) 

s POINTER TO SUBROUTINE ADDRESS 

525 003146 

017616 

000000 



MOV 

a( SPY. (SPY 

s SUBROUTINE ADDRESS 

526 003152 

527 

528 

529 

000136 




JMP 

ac SPY* 

; GO TO SUBROUTINE 





j SAVE PC OF TEST THAT FAILED 

AND R0-R5 

016637 

000004 

005062 

SV05P : 

MOV 

4(SP ) , SAVPC 


530 003154 

531 

532 





: SAVE R0-R5 


533 

534 003162 

010537 

005056 


SV05 : 

MOV 

R5.SAVR5 


535 003166 

010437 

005054 



MOV 

R4.SAVR4 


536 003172 

010337 

005052 



MOV 

R3.SAVR3 


537 003176 

010237 

005050 



MOV 

R2.SAVR2 


536 003202 

C10337 

005046 



MOV 

R1.SAVR1 


I 539 003206 

010037 

005044 



MOV 

RO.SAVRO 


! 540 003212 

000002 




RTI 



541 





sRESTORE R0-R5 


542 

543 003214 

013700 

005044 


RS05 : 

MOV 

SAVRO.RO 


544 003220 

013701 

005046 



MOV 

SAVR1.R1 


545 003224 

013702 

005050 



MOV 

SAVR2.R2 


546 003230 

013703 

005052 



MOV 

SAVR3.R3 


547 003234 

013704 

005054 



MOV 

SAVR4.R4 


548 003240 

013705 

005056 



MOV 

SAVR5.R5 


549 0032<-4 

550 

551 

000002 




RTI 







8 TELETYPE OUTPUT ROUTINE 


552 

553 003246 

017605 

000000 


TYPER: 

MOV 

8CSP),R5 


554 003252 

062716 

000002 



ADO 

#2 . ( SP ) 


555 003256 

105777 

001502 


It: 

TSTB 

8TPCSR 


556 003262 

100375 




BPL 

1* 


557 003264 

105715 




TSTB 

CR5) 


558 003266 

001001 




BNE 

2* 


559 003270 

000002 




RTI 



560 003272 

112577 

001470 


2t : 

MOVB 

C R5 ) ♦ . STPOBR 


561 003276 

562 

563 

564 

565 003300 

000767 




BR 

It 






s ASCII 

STRING INPUT ROUTINE 


017637 

000000 

003314 

INSTRG: 

MOV 

8( SPY. MSG 


566 003306 

062716 

000002 



ADD 

#2. (SPY 


567 003312 

104401 



INSTR1: 

TYPE 



568 003314 

000000 



MSG: 

0 



569 003316 

012704 

006066 



MOV 

4INBUF.R4 


570 003322 

012703 

000007 



MOV 

47.R3 


571 003326 

105777 

001426 


It : 

TSTB 

8TKCSR 


572 003332 

100375 




BPL 

It 


573 003334 

117714 

001422 



MOVB 

8TKDBR.CR4) 


574 003340 

142714 

000200 



BICB 

#200. (R4) 


f 575 003344 

122427 

000015 



CMPB 

(R4)*.#15 
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SFQ 16 


576 

003350 

001413 


BEQ 

INSTR2 

577 

003352 

117777 

001404 001406 

MOVB 

stkobr.stpobr 

578 

003360 

105777 

001400 

2* : TSTB 

8TPCSR 

579 

003364 

100375 


BPL 

2t 

580 

003366 

005303 


DEC 

R3 

581 

003370 

001356 


BNE 

It 

582 

003372 

104401 


INSTRE: TYPE 


583 

003374 

005427 


MQM 


584 

003376 

000745 


BR 

INSTR1 

585 

003400 

000002 


INSTR2: RTI 


586 






587 




i CONVERT ASCII STRING TO OCTAL 

588 






589 

003402 

011605 


PARAMS: MOV 

CSP).R5 

590 

003404 

012537 

003556 

MOV 

(R5)«. LOLIM 

591 

003410 

012537 

003560 

MOV 

(R5)* .HILIM 

592 

003414 

012537 

003562 

MOV 

(R5)* .DEVADR 

593 

003420 

112537 

003564 

MOVB 

(R5)« .LOBITS 

594 

003424 

112537 

003565 

MOVB 

(R5)« , ADRCNT 

595 

003430 

C10516 


MOV 

R5.CSP) 

596 

003432 

005005 


PAR AMI : CLR 

R5 

597 

003434 

012704 

006066 

MOV 

4IN8UF.R4 

598 

003440 

122714 

000015 

CMPB 

415. (R4) 

599 

003444 

001420 


BEQ 

PARERR 

600 

003446 

121427 

000060 

1* : CMPB 

CR4),460 

601 

003452 

002415 


BLT 

PARERR 

602 

003454 

121427 

000067 

CMPB 

(R4),467 

603 

003460 

003012 


BGT 

PARERR 

604 

003462 

142714 

000060 

BICB 

460. CR4) 

605 

003466 

152405 


BISB 

( R4 ) * , R5 

606 

003470 

122714 

000015 

CMPB 

415. CR4) 

607 

003474 

001406 


BEQ 

LIMITS 

608 

003476 

006305 


ASL 

R5 

609 

003500 

006305 


ASL 

R5 

610 

003502 

006305 


ASL 

R5 

611 

003504 

000760 


BR 

1* 

612 

003506 

104404 


PARERR: INSTER 


613 

614 

615 

003510 

000750 


BR 

PAR AMI 




jTEST 

TO SEE IP NUMBER IS WITHIN L3 

616 

617 

003512 

020537 

003560 

LIMITS: CMP 

R5. HILIM 

618 

003516 

101373 


BHI 

PARERR 

619 

003520 

020537 

003556 

CMP 

R5. LOLIM 

620 

003524 

103770 


BLO 

PARERR 

621 

003526 

133705 

003564 

BITB 

LOBITS. R5 

622 

623 

624 

625 

626 

003532 

001365 


BNE 

PARERR 




{STORE 

NUM8ER AT SPECIFIED ADDRESS 

003534 

013704 

003562 

MOV 

0EVADR.R4 

627 

003540 

010524 


11: MOV 

R5 , ( R4 ) * 

628 

003542 

062705 

000002 

ADO 

42. R5 

629 

003546 

105337 

003565 

DECB 

ADRCNT 

630 

003552 

001372 


BNE 

It 

631 

003554 

000002 


RTI 


632 

003556 

000000 


LOLIM: 0 
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SEQ 17 


633 

003560 

000000 


HILIM: 

0 




634 

003562 

000000 


DEVAOR : 

0 




635 

003564 

000 


LOBITS: 

.BYTE 

0 



636 

003565 

000 


ADRCNT : 

.BYTE 

0 



637 

638 





: CONVERT 

DECIMAL ACCII STRING TO 

OCTAL 

639 

003566 

011605 


.PARAMO 



MOV (SP).R5 


640 

003570 

012537 

003752 


MOV 


CR5)*.6$ 


641 

003574 

012537 

003754 


MOV 


CR5)*.7t 


642 

003600 

012537 

003756 


MOV 


CR5)*.8t 


643 

003604 

112537 

003760 


MOVB 


(R5)*.9» 


644 

003610 

112537 

003761 


MOVB 


(R5)* , 101 


645 

003614 

010516 



MOV 


R5.CSP) 


646 

003616 

005005 


2* : 

CLR 


R5 


647 

003620 

012704 

006066 


MOV 


4INBUF.R4 


648 

003624 

122714 

000015 


CMPB 


415. (R4> 


649 

003630 

001424 



BEQ 


3* 


650 

003632 

121427 

000060 

1$: 

CMPB 


(R4),4‘ 0 


651 

003636 

002421 



BLT 


3* 


652 

003640 

121427 

000071 


CMPB 


(R4).4’9 


653 

003644 

003016 



BGT 


3* 


654 

003646 

142714 

000060 


BICB 


4' 0. (R4 ) 


655 

003652 

005002 



CLR 


R2 


656 

003654 

152402 



BISB 


( R4 ) ♦ , R2 


657 

003656 

060205 



ADO 


R2.R5 


658 

003660 

122714 

000015 


CMPB 


415. (R4) 


659 

003664 

001410 



BEQ 


4* 


660 

003666 

006305 



ASL 


R5 ;X2 


661 

003670 

010502 



MOV 


R5.R2 .SAVE X2 


662 

003672 

006305 



ASL 


R5 ;X4 


663 

003674 

006305 



ASL 


R5 ;X8 


664 

003676 

060205 



ADO 


R2.R5 .TIMES 10 


665 

003700 

000754 



BR 


It 


666 

003702 

104404 


3 $: 

INS TER 



667 

003704 

000744 



BR 


2t 


668 

669 





.TEST 

TO SEE IF NUMBER IS WITHIN 

LIMITS 

670 









671 

003706 

020537 

003754 

4$: 

CMP 


R5, 7$ 


672 

003712 

101373 



BHI 


3$ 


673 

003714 

020537 

003752 


CMP 


R5.6I 


674 

003720 

103770 



BLO 


31 


675 

003722 

133705 

003760 


BITS 


9t.R5 


676 

003726 

001365 



BNE 


31 


677 

678 





.STORE NUMBER AT SPECIFIED ADDRESS 

679 









680 

003730 

013704 

003756 


MOV 


81. R4 


681 

003734 

010524 


51 : 

MOV 


R5. <R4 )* 


682 

003736 

062705 

000002 


ADD 


42. R5 


683 

003742 

105337 

003761 


DECB 


10$ 


684 

003746 

001372 



BNE 


5t 


685 

003750 

000002 



RTI 




686 

003752 

000000 


6$ : 

0 




687 

003754 

OCOOOO 


7 1: 

0 




688 

003756 

000000 


8t: 

0 




689 

003760 

000 


9t: 

.BYTE 

0 
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SEQ 18 

690 

691 

692 

693 

003761 

000 



10*: 

.BYTE 0 









: COMPARE 

THE FIRST CHARACTER IN THE TELETYPE 

INPUT 


694 






j BUFFER 

TO THE CHARACTERS "E" ANO "C". 



695 






: IF THE 

CHARACTER IS "E” CLEAR THE FLAG 



696 






; IF THE 

CHARACTER IS "C" SET THE FLAG 



69? 







SCSP).R5 



698 

003762 

017605 

000000 


.PAUCH 

MOV 



699 

003766 

122737 

000105 

006066 


CMPB 

O'E.INBUF ;IS IT "E" ? 



700 

003774 

001002 




BNE 

1* 



701 

003776 

105015 




CLRB 

CR5) : 000 



702 

004000 

000406 




BR 

2* 



703 

004002 

122737 

000103 

006066 

1* : 

CMPB 

4'C.INBUF :IS IT "C" ? 



704 

004010 

001005 




BNE 

3* 



705 

004012 

112715 

177777 



MOVB 

4-1. (R5) ; 377 



706 

004016 

062716 

000002 


2*: 

ADO 

42. (SP) 



707 

004022 

000002 




RTI 




708 

004024 

104404 



3*: 

INS TER 

;RETRY 



709 

710 

711 

712 

713 

714 

004026 

C00755 




BR 

.PAUCH 








.•CONVERT OCTAL NUMBER TO ASCII ANO OUTPUT TO 

TELEPRINTER 


004030 

104401 



OCTASN 

: TYPE 




715 

004032 

005434 




MCRLF 




716 

004034 

104413 




SAV05 

8(SP).R1 



717 

004036 

017601 

000000 



MOV 



71® 

004042 

062716 

000002 



AOD 

♦2 , ( SP ) 



719 

004046 

C12137 

004662 



MOV 

(R1 )♦ .UROCNT 



720 

004052 

112137 

004664 


1* : 

MOVB 

(Rl)*.CHRCNT 



721 

004056 

112137 

004665 



MOVB 

(Rl)*. SPACNT 



722 

004062 

013137 

004666 



MOV 

a(Rl)». BINURD 



723 

004066 

013704 

004666 


2*: 

MOV 

BINURD, R4 



724 

004072 

113705 

004664 



MOVB 

CHRCNT.R5 



725 

004076 

012700 

006100 



MOV 

4TEMP.R0 



726 

004102 

010403 



3*: 

MOV 

R4.R3 



727 

004104 

042703 

177770 



BIC 

4177770. R3 



72® 

004110 

062703 

000260 



ADO 

4260. R3 



729 

004114 

110320 




MOVB 

R3.CR0I* 



730 

004116 

006204 




ASR 

R4 



731 

004120 

006204 




ASR 

R4 



732 

004122 

006204 




ASR 

R4 



733 

004124 

005305 




OEC 

R5 



734 

004126 

001365 




BNE 

3* 



735 

004130 

012703 

006112 



MOV 

4M0ATA.R3 



736 

004134 

114023 



4$: 

MOVB 

-(RO). (R3)» 



737 

004136 

105337 

004664 



OECB 

CHRCNT 



738 

004142 

001374 




BNE 

4* 



739 

004144 

105737 

004665 



TSTB 

SPACNT 



740 

004150 

001405 




BEQ 

6* 



741 

004152 

112723 

000240 


5*: 

MOVB 

4240, (R3)* 



742 

004156 

105337 

004665 



OECB 

SPACNT 



743 

004162 

001373 




BNE 

5* 



744 

004164 

105013 



6*: 

CLRB 

CR3) 



745 

004166 

104401 




TYPE 




746 

004170 

006112 




MOATA 
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747 

004172 

005337 

004662 



DEC 

URDCNT 


748 

004176 

001325 




BNE 

1* 


749 

004200 

104407 




RES05 



750 

004202 

000002 




RTI 



751 





j THIS 

ROUTINE CONVERTS LINE SPEED (LINESP) AND 

752 





:LINE 

NUM8ER (LINENU) FOR DHLPR. 

DHBAR AND DHSCR 

753 





s REGISTER USAGE 



754 









755 

004204 

013737 

005110 

005112 

SET: 

MOV 

LINENU , 84NUMLIN 

j SAVE LINENU 

756 

004212 

052737 

000100 

005112 


BIS 

4BIT06, 84NUMLIN 

;SET REC INTERRUPT ENABLE 

757 

004220 

023727 

005110 

000000 

BARO: 

CMP 

LINENU. #0 

ilS IT LINE 0? 

758 

004226 

001004 




BNE 

BARI 

i NO 

759 

004230 

01273"’ 

000001 

005114 


MOV 

#1 , 84NUMBAR 

j STORE BAR BIT 0 

760 

004236 

000572 




BR 

SET 1 


761 

004240 

023727 

005110 

000001 

BARI: 

CMP 

LINENU. 41 

: IS IT LINE 1? 

762 

004246 

001004 




BNE 

BAR2 

;N0 

763 

004250 

012737 

000002 

005114 


MOV 

#2 , 84NUM8AR 

; STORE BAR BIT 1 

764 

004256 

000562 




BR 

SET1 


765 

004260 

023727 

005110 

000002 

BAR2 : 

CMP 

LINENU. #2 

{IS IT LINE 2? 

766 

004266 

CO 1004 




BNE 

BAR3 

t NO 

767 

004270 

012737 

000004 

005114 


MOV 

44 . 84NUMBAR 

: STORE BAR BIT 2 

768 

004276 

000552 




BR 

SET1 


769 

004300 

023727 

005110 

000003 

BAR3: 

CMP 

LINENU. 43 

: IS IT LINE 3? 

770 

004306 

001004 




BNE 

BAR4 

jNO 

771 

004310 

012737 

000010 

005114 


MOV 

410.84NUMBAR 

; STORE BAR BIT 3 

772 

004316 

000542 




BR 

SET 1 


773 

004320 

023727 

005110 

000004 

BAR4 : 

CMP 

LINENU. 44 

: IS IT LINE 4? 

774 

004326 

001004 




BNE 

BAR5 

;N0 

775 

004330 

012737 

000020 

005114 


MOV 

420 . 84NUMBAR 

; STORE BAR BIT 4 

776 

004336 

000532 




BR 

SET1 


777 

004340 

023727 

005110 

000005 

BAR5: 

CMP 

LINENU. 45 

jIS IT LINE 5? 

778 

004346 

001004 




BNE 

BAR6 

(NO i 

779 

004350 

012737 

000040 

005114 


MOV 

440 , 84NUM8AR 

: STORE BAR BIT 5 

780 

004356 

000522 




BR 

SET1 


781 

004360 

023727 

005110 

000006 

BAR6 : 

CMP 

LINENU. 46 

; IS IT LINE 6? 

782 

004366 

001004 




BNE 

BAR7 

;N0 

783 

004370 

012737 

000100 

005114 


MOV 

4100 . 84NUMBAR 

: STORE BAR BIT 6 

784 

004376 

000512 




BR 

SET1 


785 

004400 

023727 

005110 

000007 

BAR7: 

CMP 

LINENU. 47 

{IS IT LINE 7 ? 

786 

004406 

001004 




BNE 

BARS 

tNO 

787 

004410 

012737 

000200 

005114 


MOV 

4200 , 84NUM8AR 

{STORE BAR BIT 7 

788 

004416 

000502 




BR 

SET1 


789 

004420 

023727 

005110 

000010 

BAR8: 

CMP 

LINENU. 410 

{IS IT LINE 10? 

790 

004426 

001004 




BNE 

BAR 9 

(NO 

791 

004430 

012737 

000400 

005114 


MOV 

4400 . 84NUMBAR 

(STORE BAR BIT 8 

792 

004436 

000472 




BR 

SET1 


793 

004440 

023727 

005110 

000011 

BAR9: 

CMP 

LINENU. 411 

{IS IT LINE 11? 

794 

004446 

001004 




BNE 

BAR10 

{NO 

795 

004450 

012737 

001000 

005114 


MOV 

41000. 84NUMBAR 

(STORE BAR BIT 9 i 

796 

004456 

000462 




BR 

SET1 

| 

797 

004460 

023727 

005110 

000012 

BAR10 

CMP 

LINENU, 412 

(IS IT LINE 12? 1 

798 

004466 

001004 




BNE 

BAR 11 

(NO 

799 

004470 

012737 

002000 

005114 


MOV 

42000 , 84NUMBAR 

{STORE BAR BIT 10 

800 

004476 

000452 




BR 

SET1 


801 

004500 

023727 

005110 

000013 

BAR 11 

CMP 

LINENU. 413 

{IS IT LINE 13? 

802 

004506 

001004 




BNE 

BAR 12 

{NO 

803 

1 

004510 

012737 

004000 

005114 


MOV 

44000 . 84NUMBAR 

{STORE BAR BIT 11 
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SEQ 20 


804 004516 

805 004520 

806 004526 

807 004530 

808 004536 

809 004540 

810 004546 

811 004550 

812 004556 

813 004560 

814 004566 

815 004570 

816 004576 

817 004600 

818 004606 

819 004610 

820 004616 

821 004620 

822 004624 

823 004630 

824 004634 

825 004636 

826 004640 

827 004642 

828 004646 

829 004652 

830 004654 

831 004660 

832 

833 

834 004662 

835 004664 

836 

837 004666 

838 

839 

840 004670 

841 004672 

842 004674 

843 004676 

844 004700 

845 004702 

846 004704 

847 004706 

848 004710 

849 004712 
850, 004714 

851 004716 

852 004720 

853 004722 

854 004724 

855 004726 

856 004730 

857 004732 

858 004734 

859 004736 

860 004740 


000442 




0R 

SET1 



023727 

005110 

000014 

BAR12 : 

CMP 

LINENU. 414 

IS IT 

LINE 14? 

001004 




BNE 

BAR13 

NO 


012737 

010000 

005114 


MOV 

410000 , S4NUMBAR 

STORE 

BAR BIT 12 

000432 




BR 

SET1 



023727 

005110 

000015 

BAR13: 

CMP 

LINENU , 415 

IS IT 

LINE 15? 

001004 




BNE 

BAR14 

NO 


012737 

020000 

005114 


MOV 

420000 . 84NUMBAR 

STORE 

BAR BIT 13 

000422 




BR 

SET1 



023727 

005110 

000016 

BAR 14: 

CMP 

LINENU. 416 

IS IT 

LINE 16? 

001004 




BNE 

BAR15 

NO 


012737 

040000 

005114 


MOV 

440000 . 84NUMBAR 

STORE 

BAR BIT 14 

000412 




BR 

SET1 



023727 

005110 

000017 

BAR15 : 

CMP 

LINENU. 417 

IS IT 

LINE 17? 

001004 




BNE 

BARNUN 

NO 


012737 

100000 

005114 


MOV 

4100000. 84NUMBAR 


s STORE BAR BIT 15 

000402 




BR 

SET1 



005037 

005114 


BARNUN: 

CLR 

94NUMBAR 

•CLEAR 

BAR BITS 

012701 

004670 


SE T1 : 

MOV 

4TABLE2.R1 



C22137 

005104 


1»: 

CMP 

CR1)» .LINESP 



001407 




BEQ 

2* 



005721 




TST 

CR1)* 

IS TT 

THE END OF TABLE? 

001373 




BNE 

1* 

s NO 


104401 

005561 



TYPE 

.MINVAL 

: INVALID BAUO RATE. BEGIN AGAIN 

012705 

001430 



MOV 

4BAU0 . R5 

s JUMP 

TO BAUO THRU R5 

000402 




BR 

It 



011137 

005106 


2%: 

MOV 

CR1). SPEED 

s SET UP BAUO RATE 

000205 



3»: 

RTS 

R5 



000000 



UROCNT : 

0 




000000 



CHRCNT : 

0 





004665 

000000 


000062 

002107 

000113 

004207 

000156 

006307 

000207 

010407 

000226 

012503 

000310 

014603 

000454 

016703 

001130 

021003 

002260 

023103 

003410 

025203 

004540 


SPACNT "CHRCNT *1 
BINURD : 0 

; THE FOLLOWING 
TABLE2: .WORD 50. 

.WORD 2107 
.WORD 75. 
.WORD 4207 
.WORD 110. 
.WORD 6307 
.WORD 135. 

. UORO 10407 
.WORD 150. 
.WORD 12503 
.UORO 200. 
.UORO 14603 
.UORO 300. 
.UORO 16703 
.UORO 600. 
.UORO 21003 
.UORO 1200. 
UORD 23103 
.UORO 1800. 

. UORO 25203 
.WORD 2400. 


IS A TABLE OF LEGAL BAUD RATES (8 BITS/CHAR) 
;50 BAUD 
i TUO STOP BITS 
1 75 BAUD 
; TUO STOP BITS 
: 110 BAUO 
s TUO STOP BITS 
; 134 . 5 BAUD 
: TUO STOP BITS 
; 150 BAUO 
s ONE STOP BIT 
8200 BAUO 
; ONE STOP BIT 
S 300 BAUO 
; ONE STOP BIT 
t 600 BAUO 
8 ONE STOP BIT 
81200 BAUO 
i ONE STOP BIT 
81800 BAUO 
8 ONE STOP BIT 
82400 BAUD 


\ 

\ 
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861 

004742 

027303 

.WORD 

27303 (ONE STOP BIT 

662 

004744 

011300 

.WORD 

4800. ; 4800 BAUD 

863 

004746 

031403 

.WORD 

31403 jONE STOP BIT 

664 

004750 

022600 

.WORD 

9600 . : 9600 BAUD 

665 

004752 

033503 

.WORD 

33503 : ONE STOP BIT 

866 

867 

668 

669 

870 

871 

004 754 

177777 000000 

. UORO -1.0 j TABLE TERMINATOR 

i INDIRECT POINTERS 

004760 

177560 

TKCSR: 177560 


872 

004762 

177562 

TKDBR: 177562 


873 

004764 

177564 

TPCSR: 177564 


874 

004766 

177566 

TPDBR: 177566 


875 

004770 

000000 

DHSCR: 0 


676 

004772 

000000 

DHNRC : 0 


677 

004774 

000000 

DHLPR : 0 


678 

004776 

000000 

one A: o 


879 

005000 

000000 

DH8C : 0 


880 

005002 

cooooo 

DHBAR : 0 


861 

005004 

000000 

DHSCR : 0 


862 

005006 

000000 

DHSSR: 0 


883 

005010 

000000 

OHSLR : 0 


884 

005012 

000000 

DHRVEC : 0 


865 

005014 

000000 

DHRLVL : 0 


686 

005016 

000000 

DHTVEC : 0 


667 

688 

869 

005020 

000000 

DHTLVL: 0 

: PROGRAM VARIABLES 

890 

005022 

000000 

NEXT : 0 

{NEXT TEST 4 

891 

005024 

000000 

ERRFLG: 0 

: ERROR FLAG 

892 

005026 

000000 

PASCNT: 0 

(PASS COUNT 

893 

005030 

000000 

ERRCNT : 0 

» ERROR COUNT 

694 

005032 

001104 

RETURN: START 

; RETURN ADDRESS 

695 

005034 

000000 

ESCAPE: 0 

: AODRESS FOR ERROR ESCAPE 

696 

005036 

000000 

FREEZ1 : 0 

sDATA LOOPING RETURN ADDRESS 

697 

005040 

000012 

ICOUNT: 10. 

{ITERATION COUNT FOR TEST IN PROGRESS 

896 

005042 

000000 

LPCNT : 0 

{NUMBER OF ITERATIONS THIS TEST 

699 

005044 

000000 

SAVRO : 0 

iRO SAVE AREA 

900 

005046 

000000 

SAVR1 : 0 

;R1 SAVE AREA 

901 

005050 

000000 

SAVR2: 0 

|R2 SAVE AREA 

902 

005052 

000000 

SAVR3: 0 

;R3 SAVE ARE 

903 

005054 

000000 

SAVR4 : 0 

iR4 SAVE AREA 

904 

005056 

000000 

SAVR5 : 0 

;R5 SAVE AREA 

905 

005060 

000000 

SAVSP : 0 

{STACK POINTER SAVE AREA 

906 

005062 

000000 

SAVPC : 0 

(CALLING ROUTINE SAVE AREA 

907 

005064 

177777 

INIFLG: .UORO 

-1 {PROGRAM INITIALIZATION FLAG 

906 

005066 

000000 

UCHFLG:0 

{ECHO OR CABLE Fl. AG 

909 

005070 

000000 

STFLG: 0 

{PROGRAM START FLAG 

910 

005072 

000000 

LOCKUP: 0 

{TIMEOUT FLAG 

911 

005074 

000000 

LAST: 0 

(LAST ERROR PC 

912 

005076 

000000 

TDATA: 0 


913 

005100 

000000 

RDATA: 0 


914 

005102 

000000 

BYTCNT: 0 

(DEFAULT BAUD RATE 

915 

005104 

000156 

LINESP: 110. 

916 

917 

005106 

006307 

SPEED: 6307 

{DEFAULT 110 BAUD. 8 BITS/CHAR 
(FDX. 2 STOP BITS 
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9 seq ; 

918 

005110 

000000 



LlNENU: 

0 


; DEFAULT VALUE, LINE 0 

919 

005112 

000100 



NUMLIN: 

100 


: DEFAULT VALUE. REC . INTERRUPT ENABLEO 

920 

921 

005114 

000001 



NUMBAR : 

1 

.•DEFAULT VALUE. BAR BIT 0 

9 22 

005116 

000240 



PRIO: 

240 


i DEFAULT DEVICE PRIORITY 5 

923 

005120 

000200 



LESS1 : 

200 


•.DEFAULT PRI0RITY4 , TO ALLOW INTERRUPTS 

924 

005122 

000000 



RECDAT : 

0 



925 

005124 

000000 



TBUF; 

0 



926 






: ENTER 

HERE ON POWER FAILURE 


927 

QOt 









7^0 

929 

005126 

010046 



PFAIL: 

MOV 

RO, -(SP) 

.•SAVE R0-R5 ON PROCESSOR STACK 

930 

005130 

010146 




MOV 

Rl.-(SP) 


931 

005132 

010246 




MOV 

R2.-CSP) 


932 

005134 

010346 




MOV 

R3.-(SP) 


933 

005136 

010446 




MOV 

R4.-(SP) 


934 

005140 

010546 




MOV 

R5.-CSP) 


935 

005142 

013746 

000024 



MOV 

24. -(SP) 


936 

005146 

010637 

005060 



MOV 

SP.SAVSP 

: SAVE STACK POINTER 

937 

005152 

C12737 

005164 

000024 


MOV 

♦RESTART. 24 

;SET UP FOR POWER UP TRAP 

938 

005160 

000000 




HALT 


:HALT ON POWER DOWN NORMAL 

939 

005162 

000777 




BR 

. 


940 









941 






j PROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED 

942 









943 

005164 

013706 

005060 


RE STAR: 

MOV 

SAVSP.SP 

sRESTORE STACK POINTER 

944 

005170 

012605 




MOV 

(SP)*.R5 

; RESTORE R0-R5 

945 

005172 

012604 




MOV 

( SP ) * . R4 


946 

005174 

012603 




MOV 

(SP)*,R3 


947 

005176 

012602 




MOV 

(SP)» ,R2 


948 

005200 

012601 




MOV 

(SP)* ,R1 


949 

005202 

012600 




MOV 

(SP)*.RO 


950 

005204 

012737 

005126 

000024 


MOV 

♦PFAIL, 24 

: SET UP FOR POWER FAILURE 

951 

005212 

012737 

000340 

177776 


MOV 

♦340. PS 


952 

005220 

012706 

001000 



MOV 

♦STACK ,SP 


953 

005224 

005037 

006100 



CLR 

TEMP 


954 

005230 

005237 

006100 



INC 

TEMP 


955 

005234 

001375 




ONE 

.-4 


956 

005236 

104402 




OCTASC 



957 

005240 

005262 




PFTA0 



958 

005242 

104401 




TYPE 



959 

005244 

005437 




MPFAIL 



960 

005246 

005037 

005024 



CLR 

ERRFLG 


961 

005252 

005037 

005074 



CLR 

LAST 


962 

005256 

000177 

177550 



jne> 

8RETURN 


963 

005262 

000001 



PFTA0: 

1 



964 

005264 

006 

002 


.8YTE 

6.2 



965 

005266 

000207 




RETURN 



969 

005270 

015 

012 

012 

MTITLE: 

.ASCII 

<15><12><12>?DH11 ECHO/CABLE TEST ?<15><12> 

970 

005322 

103 

132 

104 


. ASCIZ 

/CZDHJ REVISION CO / 


971 

005347 

015 

012 

126 

MVECTO: 

. ASCIZ 

< 15> < 12 > /VECTOR ADDRESS 

- / 

972 

005372 

015 

012 

103 

MREGAD : 

.ASCIZ 

< 15 >< 12 > /CONTROL REGISTER ADDRESS- / 

973 

005427 

040 

040 

077 

MQM; 

.ASCIZ 

/ ? / 


974 

005434 

015 

012 

000 

MCRLF: 

.ASCIZ 

<15><12> 


975 

005437 

040 

040 

120 

MPFAIL: 

.ASCIZ 

/ POWER FAILURE. PROGRAM RESTART AT TEST IN PROGRESS / 

976 

00S525 

015 

012 

103 

MEPASS : 

.ASCIZ 

<15><12>/CZDHJ-C0 / 


977 

005541 

015 

012 

120 

PASTXT : 

.ASCIZ 

< 15> < 12>/PASS COUNT - / 

: 5 
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SEQ 23 

978 

005561 

015 

012 

111 

MINVAL : 

. ASCIZ < 15> < .ir >/INVALID BAUD RATE / 



979 

005610 

015 

012 

114 

MLINE: 

. ASCIZ < 15>< 12>/LINE NUMBER IN OCTAL 

- / 


980 

005642 

015 

012 

102 

MSPEEO: 

.ASCIZ < 15> < 12>/BAUD RATE - / 



981 

005661 

015 

012 

124 

MCHAR : 

.ASCIZ < 15>< 12>/TYPE A CHAR. ON 0H11 

TERMINAL / 


982 

005722 

015 

012 

127 

MUHICH: 

.ASCIZ < 15> < 12 > /WHICH TEST ? ECHO OR 

CABLE CE OR C) / 


983 

005771 

015 

012 

124 

MTERM: 

.ASCIZ <15>< 12>/TERMINAL ECHO TEST / 



984 

006017 

015 

012 

103 

MCABLE : 

.ASCIZ <15><12>/CABLE TEST / 



985 





.EVEN 




989 









990 






i TABLE OF POINTERS FOR TRAP OECODING 



991 









992 

006036 

002602 



TRPTAB : 

SCOPER 



993 

006040 

003246 




TYPER 



994 

006042 

004030 




OCTASN 



995 

006044 

003300 




INSTRG 



996 

006046 

003372 




INSTRE 



997 

006050 

003402 




PAR AMS 



998 

006052 

003154 




SV05P 



1 999 

006054 

003214 




RS05 



1000 

006056 

C02702 




SC0P1R 



1001 

006060 

003566 




. PARAMO 



1002 

006062 

003762 




.PAUCH 



1003 

006064 

003162 




SV05 



1004 









1005 






i BUFFERS FOR INPUT -OUTPUT 



1006 









1007 

006066 

000000 



INBUF; 

0 



1008 


006100 



*10 




1009 

006100 

000000 



TEMP: 

0 



1010 


006112 



. * . ♦io 




1011 

006112 

000000 



MOAT A: 

0 



1012 


006124 



. *10 




1013 









1014 






» TABLE OF POINTERS TO ERROR MESSAGES ANO DATA 


1015 








! 

1016 

006124 




ERRTAB: 



f 

1017 

006124 

006174 




EMI 



1018 

006126 

000000 




0 



1019 

006130 

006243 




EM2 


| 

1020 

006132 

000000 




0 



1021 

006134 

006300 




EM3 


i 

1022 

006136 

000000 




0 



1023 

006140 

006333 




EM4 



1024 

006142 

000000 




0 



1025 

006144 

006403 




EM5 



1026 

006146 

000000 




0 


1 

1027 

006150 

006440 




EM 6 


1 

1028 

006152 

000000 




0 


{ 

1029 

006154 

006471 




EM7 


t 

1030 

006156 

000000 




0 



1031 

006160 

006567 




EM 8 



1032 

006162 

000000 




0 



1033 

006164 

006615 




EM9 



1034 

006166 

000000 




0 



1035 

006170 

006644 




EM10 



1036 

006172 

000000 




0 



1040 

1 

006174 

015 

012 

105 

EMI: 

.ASCIZ < 15 >< 12 > /ERROR- INTERRUPT NOT 

CAUSED BY FLAG / 
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SEQ 24 


1041 006243 

015 

012 

105 

EM2 


. ASCIZ 

<15> < 12 > /ERROR -NON VALID CHARACTER / 

1042 006300 

015 

012 

105 

EM3 


. ASCIZ 

<15> <12 > /ERROR -WRONG LINE NUMBER / 

1043 006333 

015 

012 

105 

EM4 


ASCIZ 

< 15 >< 12 > /ERROR -TRANSMITTER DONE SHOULO BE SET / 

1044 006403 

015 

012 

105 

EM5 


.ASCIZ 

<15> < 12 > /ERROR -NON -EXIST ANT MEMORY / 

1045 006440 

015 

012 

105 

EM6 


.ASCIZ 

<15> < 12 > /ERROR -WRONG CHARACTER / 

1046 006471 

015 

012 

105 

EM7 


.ASCIZ 

<15><12>/ERR0R- NOT RECEIVING CHARACTERS -CHECK CABi-E OR TERMINATOR 

1047 006567 

015 

012 

105 

EM8 


.ASCIZ 

<15> <12>/ERR0R-DATA OVERRUN / 

1046 006615 

015 

012 

105 

EM9 


.ASCIZ 

<15> < 12>/ERR0R-FRAMING ERROR / 

1049 006644 

015 

012 

120 

EM10 : 

.ASCIZ 

< 15 >< 12 > /PARITY ERROR / 

1050 




.EVEN 



1055 006664 

000400 



TABLE : 

.REPT 

256. 

1062 006664 

000 





.BYTE 

0 

006665 

001 





• BYTE 

1 

006666 

002 





.BYTE 

2 

006667 

003 





.BYTE 

3 

006670 

004 





BYTE 

4 

006671 

005 





.BYTE 

5 

006672 

006 





.BYTE 

6 

006673 

007 





.BYTE 

7 

006674 

010 





.BYTE 

10 

006675 

Oil 





.BYTE 

11 

006676 

012 





.BYTE 

12 

0066 7 7 

013 





.BYTE 

13 

006700 

014 





.BYTE 

14 

006701 

015 





• BYTE 

15 

006702 

016 





BYTE 

16 

006703 

017 





.BYTE 

17 

006704 

020 





.BYTE 

20 

006705 

021 





.BYTE 

21 

006706 

0 22 





.BYTE 

22 

006707 

023 





.BYTE 

23 

006710 

024 





.BYTE 

24 

006711 

025 





.BYTE 

25 

006712 

026 





.BYTE 

26 

006713 

027 





.BYTE 

27 

006714 

030 





.BYTE 

30 

006715 

031 





.BYTE 

31 

006716 

032 





.BYTE 

32 

006717 

033 





.BYTE 

33 

006720 

034 





.BYTE 

34 

006721 

035 





.BYTE 

35 

006722 

036 





.BYTE 

36 

006723 

037 





.BYTE 

37 

006724 

040 





.BYTE 

40 

006725 

041 





.BYTE 

41 

006726 

042 





.BYTE 

42 

006727 

043 





.BYTE 

43 

006730 

044 





.BYTE 

44 

006731 

045 





.BYTE 

45 

006732 

046 





.BYTE 

46 

006733 

047 





.BYTE 

47 

006734 

050 





.BYTE 

50 

006735 

051 





.BYTE 

51 

006736 

052 





.BYTE 

52 

006737 

053 





.BYTE 

53 

006740 

054 





.BYTE 

54 

006741 

055 





.BYTE 

55 
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SEQ 25 


006742 

056 

.BYTE 

56 

006743 

057 

.BYTE 

57 

006744 

060 

.BYTE 

60 

006745 

061 

.BYTE 

61 

006746 

062 

.BYTE 

6? 

006747 

063 

.BYTE 

63 

006750 

064 

.BYTE 

b4 

006751 

065 

.BYTE 

65 

006752 

066 

.BYTE 

66 

006753 

067 

.BYTE 

67 

006754 

070 

.BYTE 

70 

006755 

071 

.BYTE 

71 

006756 

072 

.BYTE 

72 

006757 

073 

.BYTE 

73 

006760 

074 

.BYTE 

74 

006761 

075 

.BYTE 

75 

006762 

076 

.BYTE 

76 

006763 

077 

.BYTE 

77 

006764 

100 

.BYTE 

100 

006765 

101 

.BYTE 

101 

006766 

102 

.BYTE 

102 

006767 

103 

.BYTE 

103 

006770 

104 

.BYTE 

104 

006771 

105 

.BYTE 

105 

006772 

106 

.BYTE 

106 

006773 

107 

.BYTE 

107 

006774 

110 

.BYTE 

110 

006775 

111 

.BYTE 

111 

006776 

112 

.BYTE 

112 

006777 

113 

.BYTE 

113 

007000 

114 

.BYTE 

114 

007001 

115 

.BYTE 

115 

007002 

116 

.BYTE 

116 

007003 

117 

.BYTE 

117 

007004 

120 

.BYTE 

120 

007005 

121 

.BYTE 

121 

007006 

122 

• BYTE 

122 

007007 

123 

.BYTE 

123 

007010 

124 

.BYTE 

124 

007011 

125 

.BYTE 

125 

007012 

126 

.BYTE 

126 

007013 

127 

.BYTE 

127 

007014 

130 

.BYTE 

130 

007015 

131 

.BYTE 

131 

007016 

132 

.BYTE 

132 

007017 

133 

.BYTE 

133 

007020 

134 

.BYTE 

134 

007021 

135 

.BYTE 

135 

007022 

136 

.BYTE 

136 

007023 

137 

.BYTE 

137 

007024 

140 

.BYTE 

140 

007025 

141 

.BYTE 

141 

007026 

142 

.BYTE 

142 

007027 

143 

.BYTE 

143 

007030 

144 

.BYTE 

144 

007031 

145 

.BYTE 

145 

007032 

146 

.BYTE 

146 
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SEQ 27 


007124 

240 

.BYTE 

240 

007125 

241 

.BYTE 

241 

007126 

242 

.BYTE 

242 

007127 

243 

.BYTE 

243 

007130 

244 

.BYTE 

244 

007131 

245 

.BYTE 

245 

007132 

246 

.BYTE 

246 

007133 

247 

.BYTE 

247 

007134 

250 

.BYTE 

250 

007135 

251 

.BYTE 

251 

007136 

252 

.BYTE 

252 

007137 

253 

• BYTE 

253 

007140 

254 

.BYTE 

254 

007141 

255 

.BYTE 

255 

007142 

256 

.BYTE 

256 

007143 

257 

.BYTE 

257 

007144 

260 

.BYTE 

260 

007145 

261 

.BYTE 

261 

007146 

2 62 

.BYTE 

262 

007147 

263 

.BYTE 

263 

007150 

264 

.BYTE 

264 

007151 

265 

.BYTE 

265 

007152 

266 

.BYTE 

266 

007153 

267 

.BYTE 

267 

007154 

270 

.BYTE 

270 

007155 

271 

.BYTE 

271 

007156 

272 

.BYTE 

272 

007157 

273 

.BYTE 

273 

007160 

274 

.BYTE 

274 

007161 

275 

.BYTE 

275 

007162 

276 

.BYTE 

276 

007163 

277 

.BYTE 

277 

007164 

300 

.BYTE 

300 

007165 

301 

.BYTE 

301 

007166 

302 

.BYTE 

302 

007167 

303 

.BYTE 

303 

007170 

304 

.BYTE 

304 

007171 

305 

.BYTE 

305 

007172 

306 

.BYTE 

306 

007173 

307 

.BYTE 

307 

007174 

310 

.BYTE 

310 

007175 

311 

.BYTE 

311 

007176 

312 

.BYTE 

312 

007177 

313 

.BYTE 

313 

007200 

314 

.BYTE 

314 

007201 

315 

.BYTE 

315 

007202 

316 

.BYTE 

316 

007203 

317 

.BYTE 

317 

007204 

320 

.BYTE 

320 

007205 

321 

.BYTE 

321 

007206 

322 

.BYTE 

322 

00 .'207 

323 

.BYTE 

323 

007210 

324 

.BYTE 

324 

007211 

325 

.BYTE 

325 

007212 

326 

.BYTE 

326 

007213 

327 

.BYTE 

327 

007214 

330 

.BYTE 

330 
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SEQ 28 


1063 


007215 

331 

.BYTE 

331 

007216 

332 

.BYTE 

332 

007217 

333 

.BYTE 

333 

007220 

334 

.BYTE 

334 

007221 

335 

.BYTE 

335 

007222 

336 

.BYTE 

336 

007223 

337 

.BYTE 

337 

007224 

340 

.BYTE 

340 

007225 

341 

.BYTE 

341 

007226 

342 

.BYTE 

342 

007227 

343 

.BYTE 

343 

007230 

344 

.BYTE 

344 

007231 

345 

.BYTE 

345 

007232 

346 

.BYTE 

346 

007233 

347 

.BYTE 

347 

007234 

350 

■ BYTE 

350 

007235 

351 

.BYTE 

351 

007236 

352 

.BYTE 

352 

007237 

353 

.BYTE 

353 

007240 

354 

.BYTE 

354 

007241 

355 

.BYTE 

355 

007242 

356 

.BYTE 

356 

007243 

357 

.BYTE 

357 

007244 

360 

.BYTE 

360 

007245 

361 

.BYTE 

361 

007246 

362 

.BYTE 

362 

007247 

363 

.BYTE 

363 

007250 

364 

.BYTE 

364 

007251 

365 

.BYTE 

365 

007252 

366 

.BYTE 

366 

007253 

367 

.BYTE 

367 

007254 

370 

.BYTE 

370 

007255 

371 

.BYTE 

371 

007256 

372 

.BYTE 

372 

007257 

j73 

.BYTE 

373 

007260 

374 

.BYTE 

374 

007261 

375 

.BYTE 

375 

007262 

376 

.BYTE 

376 

007263 

377 

.BYTE 

377 


000001 

• END 
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Symbol table 


ADRCNT 

003565 


DHBAR 

005002 

INTRAN 

002436 

BARNUN 

004620 


DHBC 

005000 

INTREC 

002266 

BARO 

004220 


DHBCR 

005004 

INTSVC 

001716 

BARI 

004240 


DHLPR 

004774 

LAST 

005074 

9AR10 

004460 


DHNRC 

004772 

LESS1 

005120 

BAR11 

004500 


DHRLVL 

005014 

LIGHTS 

001102 

BAR 12 

004520 


DHRVEC 

005012 

LIMITS 

003512 

8AR13 

004540 


DHSCR 

004770 

LINE 

001400 

BAR 14 

004560 


DHSLR 

005010 

LINENU 

005110 

BAH15 

004600 


DHSSR 

005006 

LINESP 

005104 

BAR2 

004260 


DHTLVL 

005020 

LOBITS 

003564 

BAR3 

004300 


DHTVEC 

005016 

LOCKUP 

005072 

8AR4 

004320 


EMI 

006174 

LOGICA 

002556 

BARS 

004340 


EM10 

006644 

LOLIM 

003556 

BAR6 

004360 


EM2 

006243 

LPCNT 

005042 

BAR7 

004400 


EM3 

006300 

MCABLE 

006017 

BARS 

004420 


EM4 

006333 

MCHAR 

005661 

BAR9 

004440 


EM5 

006403 

MTRLF 

005434 

BAUO 

001430 


EM6 

006440 

MOATA 

006112 

BEGIN 

001464 


EM7 

006471 

.1EPASS 

OOS525 

B I NURD 

004666 


EM8 

006567 

MINVAL 

005561 

■ BITOO - 

000001 


EM9 

0066 IS 

MLINE 

005610 

• BIT01 • 

000002 


EQP 

002500 

MPFAIL 

005437 

| BIT02 - 

0U0004 


ERRCNT 

005030 

MOM 

005427 

, BIT03 - 

000010 


errflg 

005024 

MREGAO 

005372 

BIT04 - 

000020 


ERRMSG 

003034 

MSG 

003314 

BIT05 - 

000040 


ERRORS 

002720 

MSPEED 

00564? 

BIT06 - 

000100 


ERRT48 

006124 

MTERM 

005771 

t BIT07 - 

000200 


ERTABO 

003114 

MTITLE 

005270 

BIT08 - 

000400 


ESCAPE 

005034 

MVECTO 

00 5 34 7 

' BIT09 • 

001000 


EXITER 

003072 

HUHICH 

005722 

1 BIT10 • 

002000 


FREEZ1 

005036 

NEXT 

005022 

BIT11 - 

004000 


HALTS 

003052 

NUH8AR 

005114 

BIT12 - 

010000 


HILIM 

003560 

NUMLXN 

005112 

BIT 13 - 

020000 


ICOUNT 

005040 

OCTASC* 

104402 

BIT14 - 

040000 


INBUF 

006066 

OCTASN 

004030 

BIT15 - 

100000 


INIFLG 

005064 

PARAM - 

10440S 

BYTCNT 

005102 


INSTER- 

104404 

PARAMO- 

104411 

CHRCNT 

004664 


INSTR - 

104403 

PAR AMS 

003402 

DATA8P 

003046 


INSTRE 

003372 

PAR AMI 

003432 

DELAY 

001702 


INSTRG 

003300 

PARERR 

003506 

DEVADR 

003562 


INSTR1 

003312 

PASARG 

002574 

DHBA 

004776 


INSTR2 

003400 

PASCNT 

005026 

. ABS. 

007264 

000 

CRU.I.G8L.ABS.0VR) 




000000 

001 

CRU.I.LCL.REL.CON) 




Errors detected: 0 


*** Assembler statistics 


Work f ‘ le reads : 0 
Work file writes: 0 

Size of work file: 8350 Words ( 33 Pages) 
Size of core pool: 9596 Words C 36 Pages) 
Operating system: RSX-11M/PLUS 
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SEQ 29 


PASTXT 005541 
PAWCH « 104412 
PF AIL 005126 
PFTAB 005262 
P0PR0 - 012600 
POP ISP- 005726 
P0P2SP- 022626 
PRIO 005116 
PS • 177776 
PUSHRO- 010046 
PUSH1S- 005746 
PUSH2S- 024646 
QUITS 002264 
RDATA 005100 
RECOAT 005122 
RESREG 003050 
RESTAR 005164 
RESTRT 002570 
RESOS - 104407 
RETURN 005032 
RSOS 003214 
SAVPC 005062 
SAVRC 005044 
SAVR1 005046 
SAVR2 005050 
SAVR3 005052 
SAVR4 005054 
SAVRS 005056 
SAVSP 005060 
SAV05 • 104413 
SAV05P* 104406 
SCOPE * 104400 
SCQPER 002602 
SCOPE 1- 104410 
SC0P1R 002702 
SET 004204 
SET 1 004624 
SPACNT- 004665 
SPEED 005106 
SPIN 002240 
STACK 001000 
START 001104 
STFLG 005070 


SV05 003162 
SV05P 003154 
SUR 001100 
SUOO » 000001 
SU01 • 000002 
SU02 - 000004 
SU03 - 000010 
SU04 - 000020 
SU05 » 000040 
SW06 • 000100 
SU08 - 000400 
SW09 - 001000 
SU10 - 002000 
sun - 004000 
SU12 * 010000 
SW13 - 020000 
SU14 > 040000 
SU15 - 100000 
TABLE 006664 
TA8LE2 004670 
TBUF 005124 
TDATA 005076 
TEMP 006100 
TEST1 001566 
TEST2 002074 
TKCSR 004760 
TKOBR 004762 
TPCSR 004764 
TPQ8R 004766 
TRPOK 003134 
TRPSRV 003122 
TRPTA8 006036 
TYPOAT 003036 
TYPE » 104401 
TYPER 003246 
TTPTISG 003020 
VEC1 001272 
VEC2 001302 
UCMFLG 005066 
UROCNT 004662 
10 * 000400 

.PAR Afl 003566 
PAUCH 003762 
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